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H 1 $9) MODULE BASSINIT_I10 nitiate jooediagg.f rame 

3 ¢ Oe “fp Ent = '1-009' ile: BASINIIOL.852 Edit: MDL1009 
: = 

3 ¢ Ope : BEGIN 

: § 006 } i eeeeeeeeeeeeeeneeneeneeeeeeeeeeteretteererereeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee 
$ '@ tt 
; 8 Boos 1 i® COPYRIGHT (c) 1978, 1980 1982, 1984 B * 
; § 009 1 is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. « 
3 19 only : is ALL RIGHTS RESERVED. * 
D4 te 
5 \¢ Bog 1 i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
5 0013 1 '* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bi CoNSE AND WITH THE * 
2 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
s 0015 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HEREBY * 
: i gett : :* TRANSFERRED. bd 
Py .* y 
FY 19 0019 1 !«# phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
$ 20 0020 1 !«* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
H $3 oes. ! :* CORPORATION. * 
3 '® ® 
“We -. $038 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
H 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; = 0025 1 !« * 
;-: & 0026 1 !* * 
: 27 0027 1 Peer eee eee eee ERRATA AEE AE TEAR ER EERE ERAERERERAEE EERE EEE 
; 0028 1! 

5; @& 0029 1! 

s 30 0030 1 

=. 0031 1 !+4+¢ 

5; we B03¢ 1 ! FACILITY: BASIC-PLUS-2 Frame Support 

ae 0035 1! 

5; 0034 1 ! ABSTRACT: 

; 0035 1! 

3 36 0036 1! These routines set up and tear down frames for 77 +a 2. 

: 37 0037 1! Frames are used for main routines, external functio 

"2a 0038 1! external subroutines, internal functions (both DEFS. # DEF *s) 

3 39 0039 1! internal subroutines (GOSUBs), condition handlers and immediate 

: 60 0040 1! mode code. 

. #8 0041 1! 

3 4g one : ENVIRONMENT: VAX=-11 user mode 

3 re} bee ! } AUTHOR: John Sauter, CREATION DATE: 08-Feb-1979 

3 46 0046 1 ! MODIFIED BY: 

ee 0047 1! 

; 48 0048 1 ! 1-001 - Original from BASSINIT_GOSUB. JBS 08-Feb-1979 

:; 49 0049 1 ! 1-002 - Convert BAS$ to BSF$ prefixes for stack frame. JBS 08-FEB-1979 

es aan 050 1 ! 1-003 - If the caller of8 not : BASIC frame, just CALL the print List. 

ae 051 1! a 14-FEB 

5 26 0052 1 ! 1-004 - ange trom | List to Immediate On-Line. JBS 10-SEP-1979 

; > 0053 1 ! 1-005 - ‘o he | vit 7a e PSW if reqested. JBS 11-SEP-1979 

3s $6 054 1 ! 1-006 - Give an aeae if ce vapge ited root frame is not a BASIC 

| 055 1! frame. JBS 15-SEP-1 

; % 056 1 ! 1-007 - Correct a comment. JBS 07-NOV-1979 

s .. 3¥ 0057 1 ! 1-008 - For Basic 2.0, allocate temporary strings and numerics on the 


are Ae BE Seeger eta ey teh [ 
oreeea ieee 99:85:88 BNSAT OSAE Seas iNtio 6S2;1 Awe 
' stack. PLL 29-Mar-1982 


i 1-009 = check and make sure NO_TEMP_STR and NO_TEMP_NUM were passed as 
i parameters before using them. They are only persed te iron pres 
i compiled with the V2.0 or Later compiler. MDL 4-Feb-19 


! <BLF /PAGE> 


PASS INIT. 10L 


; 1 
} | 
: (61 0061 1} 
: 1 
: 1 
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BASSINIT_IOL 16-Sep-1984 00:37: AX-11 Bliss-32 V4.0-74 Page 3 
18809 12280871382 99:32:88 BASRTL. RCIBASINIIOL.B 231 . (2) 
e Mate’ } SWITCHES 

; SOG? +3 

; oes 1 

; oy B08 : SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
i £ 0071 1! 

Se Boag 1 ! LINKAGES: 

>; «624 Bae 1! 

; pO 074 1 

; 0075 1 LINKAGE 

Po re 0076 1 BASSIOLIST_JSB = JSB : ‘ 

; gf 0077 1 GLOBAL (BSFSA_MAJOR_STG = 11, BSFSA_MINOR_STG = 10, BSFSA_TEMP_STG = 9) ! 
; 0078 1 NOPRESERVE (8, 7, 6, 5, 4, 3, 2, 1, 0); 

: 80 0079 1 

on} 0080 1! 

- & 0081 1 ! TABLE OF CONTENTS: 

ay 0082 1! 

> = BS 00835 1 

; 85 0084 1 FORWARD ROUTINE 

; & 0085 1 BASSINIT_IOL : NOVALUE; ! start immediate mode code 
; oF 0086 1 

;: & 0087 1! 

; 6489 0088 1 ! INCLUDE FILES: 

; 0089 1! 

; (91 0090 1 

; 3 744 ! REQUIRE "RTLIN:RTLPSECT'; ! macros for defining psects 
3 Be 3h 24 : REQUIRE "RTLIN:BASFRAME'; ! Define frame structure 

; | «696 0391 1 LIBRARY ‘RTLSTARLE'; ! Define system symbols 

Se 0392 1 

- 9 0393 1! 

; 99 0394 1 ! MACROS: 

; 109 0395 1! 

; 101 0396 1! NONE 

; 102 0397 1! 

: 103 0398 1 ! EQUATED SYMBOLS: 

: 104 0399 1! 

z 105 0400 1! NONE 

: 106 0401 1! 

; 107 ot 4 1 ! PSECTS: 

: 108 0403 1! “iden 
, 10 0404 1 DECLARE_PSECTS (BAS); ! declare psects for BASS facility 
; 110 0405 1! 

s 9t% 0406 1 ! OWN STORAGE: 

; Ve 0407 1! 

s- 3¥ 0408 1! NONE 

s 116 0409 1! 

3 4115 0410 1 ! EXTERNAL REFERENCES: 

: 116 0411 1! 

3; (117 Beis 1 

3; «6118 0415 1 EXTERNAL ROUTINE k 

3 «119 0414 1 BAS$S$STOP : NOVALUE, ! Signal a fatal BASIC error 
; 130 0415 1 BASSHANDLER; ! handles signals 

3: 121 0416 1 

s Vez 0417 1 !¢ 


a 
. Be ee Se Se Be Bete Ge ee se. 
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3 : H p18 } } The following are the error codes used in this module: 

: 125 420 1° 

3 3 $ 421 1 EXTERNAL LITERAL 

; \¢f be ¢ : BASSK_SYNERR : UNSIGNED (8); ' Syntax error 
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BASSINIT_IOL 16-Sep-1984 00:37: AX-11 Bliss-32 V4.0-74 Page 5 
4 baat 7 90:30:68 YBASRTL SRE BASINIIOL.852;1 . (3) 
: 130 424 1 GLOBAL ROUTINE BASSINIT_IJOL ( ! start immediate mode code 

3 151 425 1 PC ' place to start 

<3 ; 4 § 1 T FM ' root frame 

4 sige | ectEnpon | Rinber eape*Ronerteh Cin bytes 
: ' mp. numer n 

3 ; 5 ps , | ) : NOVALUE™= ve smmerhian oh 
: 4 04 1 1 t44 

4 ; bd § : FUNCTIONAL DESCRIPTION: 

: 140 434 1: Set up a frame for immediate mode code. The frame is 

: «(141 435 1! allocated on the stack. R11, R10 and R9 are set up from 

3 106 4, $ 1! the root's frame, which is the frame which contains the 

3 127 8 . : symbols known to the keyboard monitor. 

: 145 0459 FORMAL PARAMETERS: 

: 167 0441 1: NEW_PC.ra.v PC of the immediate mode code. 

: 148 0442 1! ROOT_FMP.ra.v Address of the frame which contains the variables 

; 149 0445 1! NO_TEMP_STR.rl.v Number of temporary strings to allocate 

3 ie Seed : NO_TEMP_NUM.rl.v Number (in bytes) of temporary numerics to allocate 
; 13¢ Dang i IMPLICIT INPUTS: 

: 154 0448 1 | NONE 

3 155 0449 1! 

; 128 Beee : IMPLICIT OUTPUTS: 

* 158 0452 1 NONE 

3; 159 0453 1! 

3 129 Bee ’ } ROUTINE VALUE: 

; 168 0456 1: NONE 

: 16 0457 1! 

3 +e ok : : COMPLETION CODES: 

> 166 0460 1: NONE 

3 167 0461 1! 

3 1e8 bees : : SIDE EFFECTS: 

; 170 0464 1 ! Leaves lots of things on the stack for use by the compiled 

S09 0465 1! BASIC=PLUS-2 code. These things wil! be removed by 

: \7¢ rh. : } the compiled RET instruction. 

: 174 68 1 i-- 

: 175 b668 1 

: 176 0 BEGIN 

3 177 0471 

; 4178 047 GLOBAL REGISTER 

: 179 047 BSFSA_MAJOR_STG = 11, 

: 180 74 BSFSA_MINOR-STG = 10, 

; 181 0475 BSFSA-TEMP_STG = 9; 

: 188 oc77 BUILTIN 

; H+ o78 ACTUAL COUNT, 

> 186 0480 SP. 


eee es 
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BISPSwW; 


wre 


AP 
ROOT_FMP : REF BLOCK CO, BYTE] FIELD (BSFSFCD); ! pointer to FCD 


“w 


'¢ 
! Define local variables as registers. We connot have any stack 
locals since we manipulate the stack pointer in this routine. 


REGISTER 
FMP : REF BLOCK CO, BYTE] FIELD (BSFSFCD); ! points to our frame 


'¢ 
: If the root frame is not a BASIC frame, we have an error. 


RRRRRRRKLLELLLLLS 


IF (.ROOT_FMP CBSFSA_HANDLER] NEQA BASSHANDLER) THEN BASSS$STOP (BASSK_SYNERR); 


14 


; Load R9, R10 and R11 for the immediate mode code. 


BSFSA_MAJOR_STG = .ROOT_FMP CBSFSA_BASE_R11); 
BSFSA-MINOR-STG = .ROOT“FMP CBSFSA~BASE R10): 


'¢ 
} Allocate frame control data. 


FMP = .FP; 
* SP = .FMP = BSFSK_LENFCDIOL; 
; Allocate string temporaries on the stack. 


IF ACTUALCOUNT() GTR 2 THEN 
INCR COUNTER FROM 1 TO .NO_TEMP_STR DO 


GIN 
SP_= .SP = ZUPVAL; 


-SP = 0 ! ptr = 0 implies not allocated 
SP = .SP = XUPVAL: 
BLOCK (.SP, DSC$B_CLASS; 0, BYTE] = DSCSK_CLASS_D; 
BLOCK {.SP, DSCS$B_DTYPE; BYTE) = DSCSK_DTYPE_T; 
SP. DSCSWULENGTH; 6, BYTE) = 0; 


BLOCK 
re END; 
: Point R9 to the last string descriptor allocated. 


BSFSA_TEMP_STG = .SP; 

Allocate temporary numerics on the stack. 
If ACTUALCOUNT() GTR 2 THEN 
SP = .S TEMP 


fo = 


SBLFERFEUN LS SHVEARGSLS SBS ARAVSSSSISAP AVI SSO NEAR LOO 


RaPDPIPINIAPDNDAININYININYAIPNININYPDPIPINININININININININYNINPIAINPIPINININUPINIPIPINNIYD 2 9 tS Ss 


oocoo OOOOOOOOO® 


ety ty ay ty tN ty ty ty ty te ty ty ty ty ty ty ty ty ty ty ty ty ty ty ty Oy ty ty Ay ty ty Oy ty ty yy Oh go 4 
reales alah al Ah Aaa AA AAA A AAD AD AD AD AAD AD AD AD Ab Ab ab ab ah valwalvalvalval val ne om 


WWI A. AAI AA AIR PRIROPONUPPUND  OOOO 


8 '¢ Hf 
+4 : Initialize the parts of the FCD relavent to immediate mode code. 
41 "FMP CBSFSA_MARK) = 0; 
4¢ FMP CBSFS$A_BASE_SP] = .SP; 
4 FMP [BSFSA“BASE-R11) = .BSFSA_MAJOR_SIG; 
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EMP FBSESA BASE R10) = 
FMP [CBSFSATBASE-R9) = .8 


i" the “PROCEDURE ID'’ is the address of the start of the immediate mode code. 
FMP CBSFSA_PROC_ID) = .NEW_PC; 

i Copy the frame flags from the root frame. 

FMP CBSFSW_FCD_FLAGS] = .ROOT_FMP CBSFSW_FCD_FLAGS); 


i Mark this is an immediate mode frame. The error handler will not let 
: ON ERROR GO BACK propagate beyond this point. 


. FMP CBSFS$B_PROC_CODE) = BSFSK_PROC_IOL; 
; Set the frame Length field. 
FMP CBSFSB_LEN_FCD) = BSFSK_LENFCDIOL; 
i Set the integer overflow enable bit in the PSW if the root program 
has integer overflow enabled. 
IF ((.FMP CBSFSW_FCD_FLAGS] AND BSFSM_FCD_IV) NEQ 0) THEN BISPSW (ZREF (PSWSM_IV)); 
'¢ 
! Set the handler address to mark this as a BASIC frame and for 
VAX/VMS CHF. 
FMP CBSFSA_HANDLER] = BASSHANDLER; 


i Branch to the compiled code. This code will issue a RET instruction 
} rather than returning. 


BASSIOLIST_JSB (.NEW_PC); 
END; ! of BASSINIT_IOL 


TITLE BASSINIT_IOL 
“IDENT \1-009\ 
.EXTRN BASSSSTOP, BASSHANDLER 
-EXTRN BASS$K_SYNERR 
.PSECT _BASSCODE.NOWRT, SHR, PIC.2 
OFFC 00000 ENTRY BASSINIT_IOL. Save R2,R3,R4,R5,R6.R7.RB,R9,=; 0424 
52 08 ac 00 00002 MOVL ROOT FMP, R2 + 0498 
50 000000006 09 9 00006 MOVAB BASSRANDLER, RO F 
“ se 11 G3 geet. : 
43 006 BF 9A 0001 MOVZBL #BASSK_SYNERR, -(SP) ; 
000000006 Q 1 FB 0001 CALLS #1, BASSS$STOP ; 
A FO A2 7D 0001D 1$ MOVO  -16(R2), BSFSA_MINOR_STG ; 0504 
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5 
| BA SINIT_IOL ihese -1984 237: AX-11 Bliss-32 v4. 
1 12-8 08- 138 90:32:68 BASRTL’ SRC BASING IO B82: :1 
0 5D 00 1 MOVL FP, FMP 
sr EO AO oe 4 MOVAB =32(RO), SP 
0 ‘ 8 CMPBCéC A), 2 
18 8 BLEQU 4$ 
b4 02D CLRL COUNTER 
F 0 f BRB 
5E & € 0 1 28: SUBL2 #4, SP 
s gio O88 ite iP 
: 02060000 8F D 09 MOVL A3le7i93 36 
EC oC ac F 40 3$ AOBLEQ NO_TEMP Str’ SCOUNTER, 2$ 
SE p 904 4$ MOVL SP. 5 BSESAT TEMP 
2 6¢ 4 CMP 
4 18 0048 BLEQ 
5E 10 Ac C2 0004D SUBL2 NO_TEMP_NUM, SP 
FC AO D4 00051 S$: CLRL hu a 
FB AO 5E bd 0054 MOVL -8( FMP) 
FO = AO 3A D 00058 MOVG Sci Sa _MINOR_STG, -16(FMP) 
EC AO 9 DO 0005¢ MOVL PIN “TEMP_STG, -20(FMP) 
£8 AO 4 AC DO 00060 MOVL NEW Pe -2% Ine 
£6 AO £6 A2 BO 00065 MOVW sie §, =-26(FMP) 
—4 Ad 0820 8F B0 O006A MOVW #2080, -28(FMP) 
02 £6 AO 98 E1 00070 BRC =26(FMP), 6$ 
H B8 00075 BISPSW #32" 
60 000000006 00 9E 00077 68: MOVAB BASSHANDLER, (FMP) 
04 BC 16 0007E JSB @NEW_PC 
04 00081 RET 
; Routine Size: 130 bytes, Routine Base: _BASSCODE + 0000 
: 382 0576 1 
s 2 0577 1 END 
: 386 0578 1 
3; 285 0579 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
; BASSCODE 130 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL. CON, PIC.ALIGN(2) 
: Library Statistics 
: ceo oe Symbols woececece Pages Processing 
: File Total Loaded Percent Mapped Time 
3 .$255$DUA28:(SYSLIBISTARLET.L32;1 9776 6 0 581 00:01.1 
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: COMMAND QUALIFIERS 
: BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:BASINI 10L/0BJ=0B/$:BASINIIOL MSRC$:BASINI IOL/UPDATE=(ENHS$:BASINIIOL 


ele ty § 
Elapsed Tine Min: 


neg a e ; 0 data bytes 
Lexemes/CPU-Min: 


382 
Used: 83 pages 
Sonptlekten tonptote 


N24 AH BT13A- SE L EQUIPMENT CORPORATION 
WWE _vax/vMS v4.0 ENTIAL AND PROPRIETARY _ 


